home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas_all.zip / TI189.ASC < prev    next >
Text File  |  1992-08-12  |  5KB  |  199 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO DATABASE TOOLBOX                     NUMBER : 189
  10.   VERSION : 1.00x
  11.        OS : MS-DOS, CP/M-86, CP/M-80
  12.      DATE : July 14, 1986                                PAGE : 1/3
  13.     TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
  14.  
  15.  
  16.  
  17.  
  18.   This handout describes the code modifications that upgrade the
  19.   Turbo Database Toolbox to version 1.01. Turbo Database Toolbox is
  20.   provided in source code (except for GINST). You can make these
  21.   changes directly to the source code.
  22.  
  23.   It has been discovered that the serial numbers on Turbo Database
  24.   Toolbox diskettes are not completely reliable indicators of
  25.   whether these fixes have been incorporated. To be safe, take a
  26.   few minutes to review your copy of the Turbo Database Toolbox a
  27.  
  28.   The Turbo Database Toolbox has been released as Version 1.00,
  29.   Version 1.01, and Version 3.00. Generally, the changes described
  30.   below will update Version 1.00 to Version 1.01. Again, look your
  31.   Version 1.01 over and verify that these fixes have been imple
  32.  
  33.   If you have Version 3.00 of Turbo Database Toolbox, the changes
  34.   to ACCESS.BOX (or ACCESS3.BOX) have been incorporated along with
  35.   other changes relating to Turbo Pascal, Version 3.0). However,
  36.   you should look at the changes below that pertain to other
  37.  
  38.  
  39.   A. GENERAL CHANGES
  40.  
  41.        If you make the changes listed below to Version 1.00 of  the
  42.        Turbo Database Toolbox, change the headers of ACCESS.BOX,
  43.        GETKEY.BOX, ADDKEY.BOX, and DELKEY.BOX to say:
  44.  
  45.        "TURBO-Access Version 1.01" and "Copyright (C) 1984, 85."
  46.  
  47.   B. CHANGES TO ACCESS.BOX
  48.  
  49.        Add lines 1) and 2) in the following two places:
  50.  
  51.      Immediately after the "Assign(...)"  in procedure MakeFile;
  52.      Immediately after the "Assign(...)"  in procedure OpenFile:
  53.  
  54.      1) IOstatus:=IOresult;
  55.      2) TaIOcheck(DatF, 0);
  56.  
  57.        Add  the  following  line immediately after  "PutRec(...)"
  58.        in     procedure CloseIndex:
  59.  
  60.        Updated := false;
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.   PRODUCT : TURBO DATABASE TOOLBOX                     NUMBER : 189
  76.   VERSION : 1.00x
  77.        OS : MS-DOS, CP/M-86, CP/M-80
  78.      DATE : July 14, 1986                                PAGE : 2/3
  79.     TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
  80.  
  81.  
  82.  
  83.  
  84.   Note:     Without the above change, an index file can become
  85.             corrupted if you close an index file, and then open
  86.             another while in the middle of your program.
  87.  
  88.   C. CHANGES TO ADDKEY.BOX
  89.  
  90.        In the very last three lines of the file, change:
  91.  
  92.      FROM:         end;
  93.                  end;
  94.                end;
  95.  
  96.      TO:           end;
  97.                    PP := 0;
  98.                  end;
  99.                end;
  100.  
  101.   D. CHANGES TO DELKEY.BOX
  102.  
  103.        In the very last four lines of the file, change:
  104.  
  105.      FROM:           end;
  106.                    end;
  107.                  end;
  108.                end;
  109.  
  110.      TO:             end;
  111.                    end;
  112.                    PP := 0;
  113.                  end;
  114.                end;
  115.  
  116.   E. CHANGES TO SORT.BOX
  117.  
  118.        About 17 lines after the main BEGIN of procedure  QuickSort,
  119.        change:
  120.  
  121.    FROM:     M := (I+J) Div 2;
  122.  
  123.      TO:       M := (I+J) Shr 1;
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.   PRODUCT : TURBO DATABASE TOOLBOX                     NUMBER : 189
  142.   VERSION : 1.00x
  143.        OS : MS-DOS, CP/M-86, CP/M-80
  144.      DATE : July 14, 1986                                PAGE : 3/3
  145.     TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
  146.  
  147.  
  148.  
  149.  
  150.   Note:     This is not just for efficiency, the old "Div 2"
  151.             version can cause an arithmetic run-time error when
  152.             sorting large files.
  153.  
  154.   F. CHANGES TO SORT1.PAS AND SORT2.PAS
  155.  
  156.        The TurboSort function should not be used as a parameter to
  157.        a Write or WriteLn statement, as this may result in  an
  158.        illegal recursive call to Read or Write. Make the following
  159.        changes to the sample programs SORT1.PAS and SORT2.PAS
  160.  
  161.        Add the following variable declaration to the VAR section of
  162.        both main programs (pages 71, 75, 78, and 82 of the Turbo
  163.        Database Toolbox manual).
  164.  
  165.        x : integer;
  166.  
  167.        Throughout SORT1.PAS and SORT2.PAS, replace each occurrence
  168.        of     the following line:
  169.  
  170.        WriteLn(TurboSort(SizeOf(CustRec)));
  171.  
  172.        with the following TWO lines:
  173.  
  174.        x:=TurboSort(SizeOf(CustRec));
  175.        WriteLn(x);
  176.  
  177.        If this is not fixed in your copy of the Turbo  Database
  178.        Toolbox, there will be one occurrence of this in SORT1.PAS,
  179.        and two in SORT2.PAS. See also  pages 74, 76, 78 (two
  180.        occurrences) of the Turbo Database Toolbox Reference Manual.
  181.  
  182.  
  183.  
  184.   DISCLAIMER: You have the right to use this technical information
  185.   subject to the terms of the No-Nonsense License Statement that
  186.   you received with the Borland product to which this information
  187.   pertains.
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.